program testValueNumberingAlgebraicAndA;

class testValueNumberingAlgebraicAndA
BEGIN
   
   VAR aa, bb, cc, dd : integer;

FUNCTION testValueNumberingAlgebraicAndA;
BEGIN
   aa := 5;
   bb := aa AND aa
END

END
.

